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ABSTRACT 

This technical memo is designed for persons who are 
interested in research with and development of curriculum materiali 
Detailed information regarding computer programs, and program 
documentation used in the development and evaluation of ISCS 
curriculum materials is provided^ The memo includes supplemental 
information to ISCS Technical Report I entitled "CAI Utilization for 
Formative Curriculum Evaluation." Flow diagrams and program listings 
of the ten types of CAI programing macros as well as the five data 
analysis programs developed by ISCS are included^ This material also 

provides analysis programs for the formative evaluation of CAI text 
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The ISCS Tech Memo series, like the ISCS Technical Report series, is 
intended to provide communication to other colleagues and interested pro- 
fessionals who are actively interested in research with and development of 
curriculum material. 

Ihe rationale for the Technical Report series is tliree fold. First, 
to report in a concise, descriptive, and explanatory nature advances made in 
the technology of curriculum development. Secondly, pilot studies that show 
great promise with potential for further research and subsequent reporting 
can be given quick distribution. Third, the Technical Report series provides 
for distribution of pre-publicaticai copies of inplementation studies that, 
after proper technical review, vail ultimately be found in professional 
journals. 

Tie Tech Memo, on the other hand, serves a si^jporting documentation 
function by providing detailed information such as computer programs, program 
documentation, etc. with sufficient explanatory sectj.cns to enable the use 
or adaptation of the material presented. 

This Tech Memo pmvides sipplemental information to ISCS Technical 

Report 1 entitled “CAI UTILIZATION FOR PORTWIVL CURRICULUM EVALUATION." 

Included herein are Plow Diagrams and program listings of the ten types of 

CAI programming macros as well as the five data analysis programs developed 

by ISCS which were described in the report. This material is offered in the 

spirit of making available Information vhich should significantly reduce the 

effort required to program curriculum material. In addition, it provides 

potentially useful analysis programs for the formative evaluation of CAI text. 

Ernest Burkman, Director 
Intermediate Science Curriculum Study 
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GENERAL BACKGROUND ON THE INTERMEDIATE SCIENCE CURRICULUM STUDY 



The Intermediate Science Curriculum Study (ISCS). is a large-scale 
instructional research project supported to date by a contract with 
the United States Office of Education and grants from the National 
Science Foundation. The project is designed to develop, test, and 
disseminate into practice a system of individualized science instruc- 
tion for grades seven -through nine. 

The project is orgaiiized on a develop-field-test-revise design. Draft 
materials are produced at Florida State University by on- and invited off- 
carrpus personnel and tested on a large national sample of junior- 
hi^-school students. During the 1969-70 school year^ more than 
75,000 students in 25 states are involved in the field testing of 
the ISCS materials. In addition, a small number of students from 
the Florida State University canpus school are taking a computer- 
assisted instruction version of the materials from v/hich additional 
feedback data are being accumulated. To date, more than i|00 scient- 
ists, teachers, and education specialists have cooperated in the 
development process. 

The most unique feature of the ISCS materials is the fact that the 
students using them progress at different rates and through differ- 
ent instructional pathways depending upon their interests, abilities, 
and previous experience. The materials are being desi.gied that this 
can be accomplished in ordinary science classrooms by teachers with 
limited special training. 

The package of instructional materials for each grade level consists 
of student printed materials, specially designed laboratory appara- 
tus, a student self-evaluation system based upon behavioral objec- 
tives established for the instructional materials, teacher orienta- 
tion materials, and standardized tests. The Silver Burdett Corpor- 
ation, in conjunction with Damon Educational Corporation, is dis- 
tributing these matericLLs during the experimental phase of the 
project and will market the commercial version of them. 

The project has generated world-wide interest and its newsletter, 
published twice yearly, now goes to more than 10,000 people in ^2 
countries. ISCS materials are now in use in Australia and will be 
used in American dependent schools in Germany and Japan in 
September. Experiment al tr sting of the materi.als is nov/ underway 
in Manila, and plans have been established for a joint Florida 
State University - Philippines effort to produce a special 
Philippines version of the program. In addition, project personnel 
have visited Japan, India, and several South American countries 
for preliminary discussions related to possible use of the 
materials in these areas. 
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For foLQ? years the Intemoediate Science Curriculum Study has utilized 
conputer assisted instruction as a relatively new technique for curriculum 
evaluation. The purpose of the CAT trial was to obtain objective data to aid 
in the revision of the ISCS texts used in the regular classroom. To attain this 
goal, a conputer assisted instruction course was developed;, that paralleled as 
closely as possible the ISCS individualized course materials in use in the 
regular classroom. The production of the CAT version of the ISCS instructional 
materials was a by-product of the basic research effort of curriculum evaluation 
and revision. A general description of the development and utilization of CAI 
by ISCS is presented in Technical Report 1 ‘‘CAI Utilization for Formative 
Curriculum Evaluation” available from ISCS. 

This memo presents the technical details of the macros and analysis pro- 
grams by which ISCS iirplemented and analyzed t: most recent ( 1968 - 69 ) CAI 

versions of the entire level I (grade seven) and level II (grade ei^t) materials 
and one-lialf of the 1969-70 level III (grade nine) materials. In addition, 
details of content, processes, and other frame identifiers codes useful for 
analysis are described. 

Tine conputer programs are basically linear. The courses consist of a 
basic core, v^ich all students follav. Excursions are provided, which are 
branches away from the core sequence, and the core is re-entered f3?om where it 
was left. The students are able to go forward or backward in the materials, 
and are not limited to going forward only. The students therefore are' able to 
go back and change answers at any time. The program is non-reinforcing, and 
is conpletely macro based. The macro system presents the student’s last answer 
vdien the previous frame is reviewed. 
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The general ’’flow" of student progress Is linear throu^ either of the three 
levels of ISCS materials. Figure 1 illustrates the basic desigi of this linear 
flow frcai segnent to segnent of the program. Usually, each segnent within a level 
represents one ch^ter of text material and the excursions designed to acconpany 
that ch^ter. In some instances it was possible for students to review to an 
excursion in an earlier segnent \i^en remedial work was desired. (For exanple, a 
branch to an excursion on gr^hing (1-6) was available from either segnent 3 or 
segnent 10 of the level 1 program) . 




SEGMENT FLOW DIAGRAM 
FIGURE 1 
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'Itie Macros 



General Descriptions 

It has been said that the ISCS prograins are “coirpletely macro based." It 
is probable that the extensive evaluation completed for each grade level of the 
cunriculum could not have been conpleted without the utilization of this very 
useful capability of the Coursewrlter II language and the IMvI 1500 system. 

Ihe following is a brief description of each macro. A nrare conprehensive 
description of the macros and their functions is given jjn ISCS Tedinical Report 
1 — "CAI Utilization for Formative Curriculum Evaluation" . 



IViacro 


i-iode* 


lipe of Itext Programned 


Branches 


t'ld500 


LP 


Information Presentation 


Continue 

Review 


exdUOO 


LP 


Branch to Excursion decision 
Frame 


Excursion 
Wext frame 
Review 


ysd500 


LP 


Question whcih hjas a yes or 
no answer. Yes is the correct 
response. (A Vai?iation provides 
for no as a correict response.) 


i\lext Frame 
(with selection 
of answer) 
Review 


inad500 


LP 


Multiple ciioice ciuestions, 
choice A is correiCt answer. 
(Variations provide for B, C, 
or D as correct answer.) 


ifext frame 
(via an answer) 
Review 


rst500 


LP 


Resource decision frame. 

(Request one of 32 resources, 
used in geology unit on]iy.) 


Continue (to next 
frame) 

Call for resource 
Review 


tst500 


LP 


Test question. (Any one of 4 
possible answers can be prograiTimed 
as "correct.") 


Skip (to next 
question) 

Review (to previous 
question) 

Respond (to one of 
four possible answers). 




3 






1 



( 



1 ( 



L— ZT .. . 

in r 1 r'‘_ i r' ! 

dcd500 KB 
• cmt500 KB 



lmd500 KB 



kld500 KB 
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Free response questions. 

No specified correct answer, 
(lainited to a one line response.) 

Free Response — no specified 
correct answer. liay be frem 
one to ten lines in length. 

Free response question with 
numeric^ answer. limit 
function used to detennine 
if an answer* is within certain 
limits and therefore acceptable 

Free response question with 
correct alphanumeric answer. 

Key letter function used to 
determine whether a response 
is acceptable. 
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Continue (by 
entering a response) 
Review 

Continue (by 
entering a response) 
Review 

Continue (by 
entering an answer) 
Review 



Continue (by 
entering an 
answer) 
Review 



*IP = li^t pen; KB = keyboard 



Assignments for 

Counters, Switches and Return Registers 

The use of counters, switches, and return registers was standardized as 

much as possible throu^out the macros in order to facilitate and e^q^edite 

progranining. Hie usual assignments for these record keeping devices are 

given below. 

Counter Assignments 

cl correct answers 

c2 incorrect answers 

c3 total reviews 

c7 current nunber of reviews 

c20-30 control of display of previous answer ipon review 

Switch Usage 

s20-s30 control of display of previous answer upon review 

slO control of branching in treatment and control groups for 

1969-70 level III materials 

Return Register Usage 

return from excursions 

return frcxn graphic data display and resource display 
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rr^ 




4 



ittiUliUiiii&iUyiiiiiil 



r '1 ! . ! /"'i i"‘*i r^'i r “i r' i i i : ~'i i i i , t 

Detailed Listings and Flow Dlafgans 

j 

For each macro described above, this section sets forth the macro parameters, 
the Coursewrlter II statements used to construct the iiacro, and a flow diagram 
for the macro. 



review frame label 
EPID 

TOD macro e3?>anded 



NACMTR 

HA TT0500 $ 00000 

OTI 30f0 / /6f0 /$01 
LA SOI /RR4 
DTI 27,26 t /Bf26 / / REVIiM 

OTI 27,3 / /19,3 / / READY TO CONTINUE 
PA 30 

EPP 9999 /S02 
NX 

CAP 4^26,3,2 /TH 
BR PRl 

AAP 4,26.3*25 /RV 
BR SOI 
UN UN 
BR RE 
EN 



ttdSOO 
parameters 
$01 
$02 

I 
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FIGURE 2 

PLOW DIAGRAM FOR MACRO ttd500 
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exd500 

parameters 

$01 



review frame label 
next frame label 
excursion frame label 
EPID 




EXD macro expanded 



M4fyTR 

MA EXOSOO % 00000 

OT 28 / / / / R EVIEW 

OT 20 / / / / I WILL 00 THE E XClMSION 

OT 2A / / / / I WILL NOT 00 THE E XCURSION 

PA 30 

EPP 9999 /$04 
NX 

CAP A!l9»3f0 /EX 
LR S02 /RR2 
BR $03 

CAP 4,23f3t0 /TM 
BR $02 

AAP 4t27f3tO /RV 
BR $01 
UN UN 
BR' RE 
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FIGURE 3 



MACRO exd500 PLOW DIAGRAM 
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ysd300 

paraneters 

♦01 

♦02 

♦03 

♦04 



review Amne label 

switdi and counter nunber for this ftane 
sidtch and counter nunber for the next trene 
EPID 



YSD oBcro expanded 



MA YSD500 $ 00000 

DTI 27»2 / /5,2 / / YES 
LA SOI /RR4 

OTI 27fl6 / /4fl6 / / NO 
OTI 27f5l / /8f3l i / REVIEW 
BR «ll /C7 /G /9 
BR All /SS02 /O 
BR il2 /CS02 /E /2 
OTI 27»14 / /ltl4 /X 
BR ill 
il2 

OTI 27#0 / /l»0 /X 
ill 

PA 30 

EPP 9999 /S04 
NX 

BR RE 

CAP 4»26f3fl /CA 
to 2 /CS02 
AO I /Cl 
BR il6 

AAP 4t26»3»30 /RV 
AO 1 /C7 
AO I /C3 
BR SOI 

WAP 4t26»3fl5 /WN 
to 1 /CS02 
AO I /C2 
BR il6 
UN UN 
BR RE 

il6 

BR ilB /C7 /6 /O 
to I /SS02 
to 0 /SS03 
BR PRl 
ilB 

SB I /C7 
BR PRl 
EM 
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nodSOO 



paranetem 




z<evlew frame label 

switch and counter nunher for this frame 
switch and counter nunfcer for the next treae 
EPID 



NOD macro expanded 



PIA N0D500 $ 00000 

OTl 27*2 / /5,2 / / YES 
LR $01 /RR4 

DTI 27,16 / A, 16 / / NO 
07 1. 30*0 / /6*0 /$01 
OTI 27*31 / /e*31 7 / REVIEM 
8R #11 /C7 /6 /9 
BR #11 /S$02 /O 
BR #12 /C$02 /E /2 
OTI 27*0 / /1*0 /X 
BR #11 

#12 

OTI 27*14 / /I, 14 /X 

#11 

PA 30 

EPP 9999 /$04 
NX 

BR RE 

CAP 4*26*3*15 /CA 
LO 2 /C$02 
AO 1 /Cl 
BR #16 

AAP 4*26 * 3*30 /RV 
AD 1 /C3 
BR $01 

WAP 4*26*3*1 /WV 
LO 1 /C$02 
AO 1 /C2 
BR #16 
UN UN 
BR RE 

#16 

BR #1B /C7 /S /O 
LO 1 /S$02 
to 0 /S$03 
BR PRl 
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SB 1 /C7 
BR PRl 
EN 



Note: Ohe flew diagram for this macro Is Identical to that shown in Pigture 4 for 
ysdSOT)* ^ 
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]inad500 

parameters 

$01 

$02 

$03 

$04 



review franc label 

switch and counter nuni)er for this frame 

switch and counter nuntoer for the next frame 
EPID 



MAD macro expanded 





MA 


HAD500 i 00000 




OTI 


14,32 / /6,32 /*Ol 




DTI 


14,20 / /9,20 / / 




LR 


tOl /RR4 




OTI 


16,1 / /3,1 / / 




DTI 


20,1 / /3,1 / / 




DTI 


24,1 / /3,l / / 




DTI 


28,1 / ,'3,1 / / 




BR 


#31 /C7 /G /9 




BR 


#31 /S$02 /O 




BR 


#34 /C»02 /E M 




BR 


#33 /CS02 /E /3 




BR 


#32 /C$02 /E /2 




OTI 


16,0 / /l,0 /X 




BR 


#31 


«32 




OTI 


20,0 / /1,0 /X 




BR 


#31 


#33 




OTI 


24,0 / /1,0 /X 




BR 


#31 


«34 


#31 


OTI 


28,0 / /1,0 /X 






PA 


30 




fPP 

NX 


9999 /$04 




BR 


RE 




CAP 


4,15,3,1 /CA 




LO 


1 /C$02 




AO 


1 /Cl 




BR 


#36 




AAP 


4,13,3,19 /iRV 




AO 


1 /C3 




AO 


.1 /C7 




BR 


$01 




WAP 


4,19,3,1 /MB 




LO 


2 /C$02 




BR 


#35 




WAP 


4,23,3,1 /HC 




* 


3 /C$02 




uu 




BR 


#35 




WAP 


4,27,3,1 /WO 




BR 


#35 




UN 


UN 




BR 


RE 



(continued on next page) 
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macro raadi500 continued 



m 

m 



m 



AD 


1 /C2 


bR 


m /U7 /G /o 


LD 


1 /Siji02 


LD 


0 /S$03 


bR 


PRl 


Sb 


1 /C’ 


BR 


PRl 



Note; 'flie flow diagram for tiiis macro is identical to the one in Pieure 

x\jv yeupou* 
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11x1500 

paraneters 

$01 

$02 

$03 

$04 



review ft?ame label 

switch and counter nurtber for this frame 
switch and counter nuntoer for the next frame 
EPID 



MBD macro e^q^anded 

HA MB0500 S 
IR SOI /RR4 



00000 



OTI 14»32 / /6,32 /SOI 
DTI 14#20 / /9»20 / / REVIEW 
OTI 16,1 / /3,1 / / 

OTI 20,1 / /3,1 / / 

DTI 24,1 / /3,1 / / 

OTI 28,1 / /3,1 / / 

BR #31 /C7 /G /9 

BR #31 /SS02 /O 

BR #34 /CS02 /E /4 

BR #33 /CS02 /E /3 





BR 


#32 /CS02 /E /2 


R 


OTI 


16,0 / /1,0 /X 




BR 


#31 


#32 








OTI 


X 

o 

o 

o 




BR 


#31 


#33 








OTI 


24,0 / /1,0 /X 




BR 


#31 


^ #34 


• 






OTI 


28,0 / /l,0 /X 


#31 


PA 


30 




EPP 


9999 /S04 




NX 




s 

f 


BR 


RE 


i 

1 


CAP 


4,19,3,1 /CA 




CD 


2 /CS02 


i 


AD 


1 /Cl 


i 


BR 


#36 


'i 


AAP 


4,13,3,19 /RV 


S 

y. 


AD 


1 /C7 




AO 


1 /C3 




BR 


SOI 


•' » 


WAP 


4,15,3,1 /WA 


2 : 


LO 


1 /CS02 


F ^ 

c 


BR 


#35 


i , 


WAP 


4,23,3,1 /WC 




to 


3 /CS02 




BR 


#35 


' * ! 

L 1 


WAP 


4,27,3,1 /WD 


r ' 

ii 


10 


4 /CS02 


? i 


BR 


#35 




UN 


UN 


' ! 


BR 


RE 
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mbd!500 continued 




//3b 

m 



AD 1 /C2 

BR i/38 /C27 /G /O 
ID 1 /SJi;02 
ID 0 /B$03 
BR PRl 

SB 1 /G7 
BR PHI 
M-i 



iMote: ilie flow diagram for tiiis macro is identical to the one sha/n in 
Figure 4 for ysdbOO. 
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mcdSOO 




parancters 




. $01 


review 


$02 


switch 


$03 


switch 


$04 


EPID 



frame latel 

and counter nuifcer for this franc 
and counter nuniier for the next frame 



M3D naoro e35>anded 



HA HCD500 i 00000 
on 14,32 / /6,32 /*0l 
LR iOl /RR4 

DTI 14,20 / /9,20 / / REVIEW 
on 16,1 / /3,1 / / 

DTI 20,1 / /3,1 / / 

on 24,1 / /3,1 / / 

on 28{,1 / /3,1 / / 

ER #31 /C7 /C /9 
BR . #31 /S$02 /O 

BR #34 /C$02 /E /4 

BR #33 /C$02 /E /3 

BR #32 /C$02 /E /2 

on 16,0 / /l,0 /X 
BR #31 

#32 

on 20,0 / /i,o /X 

BR #31 

#33 

on 24,0 / /1,0 /X 
BR #31 

#34 

on 28,0 / /1,0 /X 

#31. 



PA 


30 




EPP 


9999 /$04 


NX 






BR 


RE 




CAP 


4»23,3,l 


/CA 


10 


3 /C$02 




AO 


1 /Cl 




BR 


#36 




AAP 


4,13,3,19 /RV 


AO 


1 /C7 




AO 


1 /C3 




BR 


$01 




WAP 


4fl9,3,l 


/WB 


LO 


2 /C$02 




BR 


#35 




WAP 


4,l5t3,l 


/WA 


LO 


1 /C$02 




8R 


#35 




WAP 


4»2753,1 


/WO 


LO 


4 /C$02 




BR 


#35 




UN 


UN 




BR 


RE 


16 



o 



mcdliOO continued 





AD 


1 /C2 


#36 


jbH 


i/38 /C7 /G /O 




LD 


1 /S$02 




LiJ 


0 /Sii03 




BH 


PKl 


#38 


SB 


1 /C7 ■ 




BR 


PRl 




Li-l 





wote: 'file flow cUagram for tills macro is identical to tne one for vsd500 
Shown in Figure 4. . ^ ^ 
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addSOO 

parameters 

$01 

$02 

$03 

$0^! 



review frame label 

switch and counter nuni^er for this frane 
counter and switch nuntoer for the next frams 
EPID 



MDD macro expanded 





MA 


HOOSOO $ 00000 




DTI 


14,32 / /6,32 /$0l 




IR 


$01 /RR4 




DTI 


14,20 / /9,20 / / REVIEW 




DTI 


16,1 / /3,1 / / 




DTI 


20,1 / /3,l / / 




DTI 


24,1 / /3,1 / 1 




DTI 


28,1 / /3,1 / / 




BR 


#31 /C7 /G /9 




6R . 


#31 /S$02 /O 




BR 


#34 /C$02 /E /4 




BR 


#33 /C$02 /E /3 




BR 


#32 /C$02 /E /2 




DTI 


16,0 / /l,0 /X 




BR 


#31 


«32 




DTI 


20,0 / /1,0 /X 




BR 


#31 


«33 




DTI 


24,0 / /1,0 /X 




BR 


#31 


#34 




DTI 


28,0 / /1,0 /X 


#31 




RA 


30 




EPP 

NX 


9999 /$04 




BR 


RE 




CAP 


4,27f3tl /CA 




ID 


4 /C$02 




AD 


1 /Ci 




BR 


#36 




AAP 


4,13,3fl9 /RV 




AD 


1 /C7 




AD 


1 /C3 




BR 


$01 




WAP 


4tl9t3tl /WB 




LO 


2 /C$02 




BR 


#35 




WAP 


4tl5t3a /WA 




ID 


1 /C$02 




BR 


#35 




WAP 


4t23f3tl /WC 




LD 


3 /C$02 




BR 


#35 




UN 


UN 




BR 


RE 
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mdcl!:)00 continued 



//33 

//36 



//38 



Al) 1 /C2 

/07 /G /O 
LU 1 /S$U2 
LD 0 /SiiiOS 



BR PRl 



3b 1 /C7 
bR PRl 
iii'i 



note: 'Bie flov/ diagram for this macro is identical to the one for ysdyoo 
shown in Figure 



rst500 

parameters 

$01 

$02 

$03 



rst500 macro ejgjanded 



last frame label 
this frame label 
EPID 



MA RST500 $ 00000 

DTI 30,0 /2,30 /6f0 /SOI 
LR S02 /RR2 

OTI 27f29 /2,27 /8,29 / /REVIEW 

DTI 27f3 /2,27 /10,3 / /CONTINUE 

OTI 23,11 /2,23 /|9,U / /CAU FOR RESOURCE 

FA 30 

EPF 9999 /$03 
NX 

BR RE 

CAF 4,26,3,2 /TW 
BR FRl 

AAF 4,22,3,10 /RS 

BR RESORS 

AAF 4,26,3,28 /RV 

BR SOI 

UN UN 

BR RE 

EM 



A listing is included below for the ”Resors” statements vhich appeared at 
the end of each segnent where it was called by rstSOO. 

RESORS«E 



I 



I 






i 

I 



1 

2 

3 

k 

5 

6 

7 

8 

9 

10 

11 



PRR *E 
EE 0+/32*S 

Eir 0,.’)+/6,0+/40,CH'/(U)SS the (t)able op (c)ontents in your *C*^ISTUEENT lEXr 
TO SETECT THE (R)ESOURCE»C»IYOU WANT TO STUDY. *E 

ET 8,0+/4,8+/^0,0+(TYPE the NU^BER OP THE RESOURCE*C»IYOU HAVE SELECTED&*E 

EPI 10,27+/2,10+/3,27+/9999-i*/RESORS*E 

NX *E 

BR RE»E 

CA IVCl^E 

BR 1»E 

CA 2+/C2«E 

BR 2»E 




etc. 
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i 









I 

I 






I 



f 







Hie following branch statenents were 
resources were located. 



used to tr’ansfer to the 



segment where the 



i*e 

1 cpp u/rcsl*e 

2 nx *e 

3 tr 16/.pa001*e 

2*e 

1 epp 0/res2*e 

2 nx *e 

3 tr lb>'ph001*e 

3*e 

1 epp u/res3*o 



2 


nx 


*e 


o 


tr 


lt)/T.icOCl*c 


4 *e 




1 


epp 


' 0/res4*o 




nx 


*e 


3 

b*e 


tr 


lt)/^puOCl*G 


1 


epp 


u>^res5*o 


2 


nx 


*e 


3 


tr 


10/po0ul*e 


ii *e 






1 


epp 


0/resG*e 


2 


nx 


*e 


3 

7*e 


tr 


lo/pf OGl’^e 


1 


^rp 


0/res7*e 


* 1 


hx 


*e 




tr 


ln/pg001*e 


o*e 






i 


epp 


0/res8*e 


*.» 

A. 


nx 


*e 


3 


tr 


16/pii(;01*e 


y *e 






1 


epp 


u/rc.G9*e 


2 


nx 


*e 


3 


tr 


lt/pj.u01*e 


10*0 




1 


epp 


0;!^reslO*e 


2 


nx 


*e 


O 

1 

« 


tr 


lo/p juu'l*e 


' # 

32*e 







1 epp 0/rs32*e 

2 nx *e 

3 tr l6/pzf01*e 
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!ERIC 
1 
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tst500^ 
parair^eters 
$01 EPID 

$02 Switch for correct answer 
$03 Switch for first I'jrong answer 
$0^ Switch for second wrong answer 
$05 Svjitch for third vjrong answer 

$06 First line (on the CRT screen) of correct answer response 

$07 Letter representing positron of the correct answer (A, B, C, or D) 

$08 First line of the first wrong ansv/er 

$09 Letter for position of first wrong answer 

$10 First line of second wrong answer 

$11 Letter for position of second wrong 

$12 First line of third wrong answer 

$13 Letter for position of third wrong answer 

$1^ Previous frame label 

%ote: This version of tst^OO is a revision of the original macro which was 

used to program the text for the test for Volume 3A. This macro was 
used to program the text for one-half of Volume 3B. 

(Ihe expanded macro is on the following page.) 



itacro tsu500 expanded 



1 ISl 30,24+/2,30+/6,24+/+/ SKIP*E 

2 KH 30,31+/2j30^/8,31+/+/ REVIEH»E 

3 tm l4,0+/2,W+/3,0+/ +/ »E 

4 EH l8,0+/2,l8+/3,0+/ +/ *E 

5 DK 22,0+/2,22+/3,0+/ +/ *E 

6 Gn 26,0+/2,26+/3,CK-/ +/ *E 

7 IK (3)11(3)45+/RR4*E , 

8 BR (3)22(3)45+/S$02+A*E 

9 HR (3)33(3)45+/S$03+/9L*E' 

10 BR (3)44(3)45+/S$04+A*B 

11 BR (3)55(-3)45+/S$05+/1»E- 
(3)11(3)45*E 

1 EBP 9999+/$01*E 

2 me . *E 

3 BR RE»E 

4 CAP 4j$06,3j0+/C$07»E 

5 AD 1+/C25»E 

6 LD 1+/S$02*E 

7 BR PRX^E 

8 WAP 4,$08,3,0+/W$09»E 

9 AD 1+/C26»E 

10 LD 1+/S$'03»E 

11 BR PR1*E 

12 WAP 4,$10,3,0+/W$11*E 

13 AD 1+/C26*E 

14 ID l+/S$d4*E 

15 BR PR1«E 

16 WAP 4,$12,3,0+/W$13*E 

17 AD 1+/'C26»E 

18 LD 1+/S$05»E 

19 BR PRi»E 

20 AAP 3j39,2,23+/SK*E 

21 AD 1+/C28*E 

22 BR PR1*E 

'23 ■ AAP 3,29,2,20+/RV»E 

24 AD 1+/C27*E 

25 HR S$l4*E 

26 UN UN»E 

27 BR RE»E 
(3)22(3)45»E 

1 nn i4,o+/2,i4+/3j0+/ 

2 BR RR4*E 
3)33(3)45»E 

1 DU 18,0=/2,i8+/3,0+/ 

2 BR BR4»E 
(3)44(3)45*E 

1 DTI 22,0+/2,22+/3,0+/ 

2 BR RR4*E 
(3)55(3)45»E 

1 Dn 26 , 0 +/ 2 , 26 +/ 3 , 0 +/ 

3 BR RR4*E 
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1 
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t 



i 



(lodSOO 

paranfiters 

$01 

$02 

$03 

$04 

$05 



review frame label 

buffer nutrber for this frame 

counter, and switch nunber for this frame 

counter and switch nurrber for the next frame 

EPID • ■ 



IXJD macro expanded 



HA DC0500 % 00000 

oTi 3o»o / / 6 f 0 noi 

DT 26f5 / / / I F YOU WISH TO REVIEW*. TYPE XX. 

LR $01 /RR4 
BR #11 /C7 /6 /3 
BR #11 /S$03 /O 

OT 21 / / / Y OUk ANSWER LAST TINE WAS 
OT 24 / / 7B$02 

DT 28 / / / C ONTINUE BY REANSWERING THE QUESTION* 
PA 30 

EP 17 / / /9999 /40 /$05 
NX 

BR RE 

AA XX /RV 

AO 1 /C7 

AD 1 /C3 

BR $01 

CA 8 /DC 

LD BO /B$02 

BR #44 /C7 /G /O 

LO 1 /S$03 

LO 0 /S$04 

BR PRl 

SB 1 /C7 
BR PRl 
EM 
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FIGURE 7 

PLOW DIAGRAM FOR dcd500 
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crat500 

parameters 

$01 

$02 

$03 



previous frame label 
EPID 

next frane label 



macro cmb500 e:q)anded 



i 



HA CMT500 S 00000 

OTI 30f0 / / 69 O ./SOI 

DTI 27f26 / /8f26 / / REVIEW 

OTI 27f3 / /19»3 / / READY TO COMMENT 

PA 30 

EPP 9999 /S02 
NX 

BR RE 

CAP 4,26f3f2 /CT 
IR $03 /RR5 

BR HOLD 

AAP 4t26f3f25 /RV 
BR $01 

UN UU 

BR RE 

EM 




\ 
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FIGUBE 8 

B0X5W DIAGRAM FOR cantSOO 



IndSOO 

paraneters 

$01 

$02 

$03 

$04 

$05 

$06 

$07 



review ftane label 

bufiter nuntcer for this flrame 

switch and counter nvoiber for this frams 

switch and counter nunber for the next frame 

EPm 

lower nuiBerioal limit 
upper numerical limit 



U9) macro expanded 



#n 



«$3 



#44 



MA LMDSOO $ 00000 

DTI 30t0 / /6t0 /SOI 

DT 26,5 / / / I F YOU WISH TQ REVIEW, TYPE KX. 

LR SOI /RR4 
BR «11 /C7 /G n 
BR #U /SS03 /O 

OT 21 / / / Y OUR ANSWER LAST TIME WAS 
OT 24 / / /BS02 

OT t ! t t ONTINUE BY REANSWERING THE OUESTIQN. 
PA 30 

EP IT / / /9999 /40 /S05 
NX 

BR RE 
AA XX /RV 
AO 1, /C7 
AO 1 /C3 
BR SOI 

FN2 Lt / / /S06 /sot /C /CF 
AO 1 /Cl 
BR «33 
WA » /WF 
AP 1 /CR 

LO BO /BS02 
BR #44 /C7 /6 /O 
LO 1 /SS03 
LO 0 /SS04 
BR PRl 

SB I /C7 
BR PRl 
EN 



Note: Ihe flow diagram for lm®00 is identical to the one shewn in Figure 4 above< 



1 
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kldSOO 

' paraneteis 
$01 
$02 
$03 
$04 
$05 
$06 
$07 



review fraire label 

buffer nuirber for this firaniB 

switch and counter nunber for this frame 

switch and counter nunber for the next frame 

EPID 

coiTCct answer 

nunber of words necessary for a correct match 



KLD macro e^5>anded 

MACWTR 

HA KL0500 S 00000 
OTI 30f0 / /6,0 /$0l 

OT 26,5 / / / I F YdO WISH TO REVIEM, TVFE XX. 

1,0 $06 /B4 

LR SOi /RR4 
BR #11 /C7 /6 /^ 

BR #ll /S$03 /O 

OT 21 /// '1 OOR ANSWER LAST TIME WAS 
OT 24 / / /Bi02 

OT 28 / / / C ONTINOE BY REANSHERINO THE OUESTJON. 








Note; 





PA 


30 




EP 


11 / / /9999 MO /S05 




NX 






BR 


RE 




AA 


XX /RV 




AO 


1 /C7 




AD 


1 /C3 




BR 


SOX 




FN2 


•KE.YL /sot /C / /CF 




AD 


1 /Cl 




BR 


#33 




WA 


8 /WF 




AO 


1 /C2 


#33 








to 


BO /BS02 




BR 


#44 /C7 /G /O 




LD 


1 /SS03 




LO 


0 /SS04 




BR 


PRl 


#44 








SB 


: /C7 




6R 


PRX 




EM 




Ihe flc» diagram for kldSOO is identical to Fi,gure 4 above 
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.1 



% 

I 

A 



A 
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1 
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ISCS MCRO RlbSPa\(Sl:: IDhi\lTIPIiiIi SaiU^ii 



li — i 



For franes which contain a questicai for the student to answer, 
nultiple choice answer 
CA correct response 

V/A incorrect response, student picked choice A 
WB incorrect response, student picked choice B 
WC incorrect response, student picked choice C 
V/D incorrect response, student picked choice D 

yes - no answer 

CA correct response 

V/I>I incorrect response, student picked "no,'* "yes“ was correct 
Vjy incorrect response, student picked "yes,'* "no" was correct 

free response question 

CP correct response, ttirougii the use of the limit or keyletter 
function 

V/P incorrect response, through the use of the limit or keyletter 
flmction 

DC "don»t care" response, which must be examined manually if a 
correct or incorrect interpretation is necessary 

Ihe above response identifiers are the only ones wiiich are used in the macro 
system to detect correct or incorrect responses, i^ote that all correct 
responses have a C in the first position of the identifier, and all incorrtoc 
respori£5es have a W in the pxst position. (C = correct, V/ •-= wrong) Uie 
second positicxi is a modifier wiiich allows you to determine the type of 
question. 

Other identifiers used, v/iiicii are not associated with a correct or incorrect 
response: 

RV review 

unrecognizable response 
hX selection of an excursion 
'H'-i ccsitinue, under macro ttd500 
(XT time out, a identifier put in by the system 
I'M answer mismatch, put in by the system 

CC conment response indicating that a ccnsnent will be entered by 
the student 




32 



Tile Ten-Digit ISCS liPID Code 

Tie ten-digit ISCS EPID code included ei^t fields as shown in the diagram 
below: 



o 

S' 



(D 



4 



PJ 

05 

CD 



1 2 



o 


•tJ 




0,0 


S..O 




0 


4 




o jr 


£ ^ 


C CD 




Q 


PJ 


Qj CD 


a ^ 


3 iQ 




o 


o 


CD Ui 


It Ui 


& in 


CD 


CD 


X 




CD 


CD CD 




Ui 


H- 


4 H- 


^3 




Ui 




O 


O 


O 












CD 


3 


4 


5 


6 


7-8 


9-10 



Descriptions of each field 

1. Chapter Alphanumeric code, a-z, corresponding to chapter numbers 1-26. 

2. Page Alphanuneric code, a-z, corresponding to page numbers 1-26. 

3. Content Alphanumeric code, a-z and 1-9, for identification of the frame. 

Process Alphanumeric code a-z, 1-9, for identification of the scientific 
process involved in the fraire. The representation is the sane 
for both seventh and ei^th grades. 

5. Track Alphanumeric code, corresponding to the following key; 
m mainline 

e, i, X, excursion for first, second, or third set of 26 excursions 
respectively . 

6. Question Code Each frame contains an alphanumeric code to allow for sorting 

on questions. 

a no question in i^'ame, only the presentation of information 
X question in the conputer program to be answered at the terminal 
t, y, z, question, with answer to be written in student text 

7~8. Question Number IWo character numieric code, which corresponds to the 

question number in the classroom text. If there is no 
question, the code is 00. 

Note: If the frame in quest .vas an excursion decision frame, EPID characters 

3 and 4 were used for the chapter number and characters 7 and 8 were 



used for the excursion number. 



9-10. Sequence Number Two character numeric code, 01-99, corresponding to the 

frame sequence nunber. The first frame of each sOg^nent 
is 01, the next 02, etc. If there are more than 99 frames, 
the code recycles, starting with 01. 
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Content and Process Codes 

Tlie caitent and process code designations used for the grades seven and 
eight programs are defined in the lists below. It should be noted that separate 
lists are used for grades seven and eight content, while a conmon list was 
used for the processes. As of the date of this publication, no separate content 
list is available for the ninth grade materials. 

extent Alftianumeric code, a and 1-^9, for identification of 
the scientific caitent of the frame. 



Code Grade 7 



a 


models 


b 


force 


c 


friction 


d 


distance 


e 


work 


f 


time 


g 


speed 


h 


potential energy 


i 


kinetic energy 


j 


chemical energy 


k 


electrical energy 


1 


light energy 


m 


heat energy 


n 


energy jri general 


0 


temperature 


P 


energy conversion 


q 


weight-mass 


r 


moimentum 


s 


resistance 


t 


voltage 


u 


current 


V 


circuitry 


w 


calorimetry 


X 


phase change 


y 


expansioi 


z 


particles 


1 


establishing standards 


2 


math 


3 


quantification 


definitiai 


5 

6 


scieneing 

imoments 


7 

8 

9 


chemical change 
magrietism 


miscellaneous 



Grade 8 
definition 

chemical nomenclature 
word statements 
chemical reaction 
chemical test 
chemical system 

model, characteristics of models 
particle model 
atoms, elements 
ions 

miolecules 

structure 

compounds 

conservation of matter 
properties of natter 
mass-weight 
math, graphing 
combination & permutations 
volume 

reaction time, time 
energy, work, temp, change 
electrical charge 
forces 

combining power 

density 

concentration 

catalysts 

scienclng 

chemical composition 



mJ,scellaneous 



Process Alphanumeric code a-i-z, 1— for identification of the scientific 
process involved in the frans. Ihe representation is the same 
for both seventh and eiguth grades . 

a functional definition 

b operational definition 

c establishing standards 

d choice and use of correct units 
e use of instruments 

f making observations 

g averaging 

h numeric cperations 

j arranging axis and plotting points 

k interpreting graphical data 

1 interpreting non-graphical data 

m specific factual recall 

n identifying variables 

0 controlling variable 

p hypothesis formation 

q hypothesis testing 

r model definition and construction 

s application of course models 

u application of a principle or concept 

V equipment instr-victions 

w statement of a principle or concent 

X tirou^it stimulation or focus 

y information presentation 

z answer to previous question 

1 filling a data table 

2 review of previous material 

3 systems analysis 

4 descriptive definition 

5 predicting 

9 gar1:)age 



ISCS LABEL SOME 



^ Each fraire pr^Dgramned by ISCS was labeled by means of the following 
scheme. The label served the usual Coursewriter II functions in re^d to 
branching, restart, etc. 

6 Characters 



1. Chapter Alphanumeric code a-^z, correspoiding to chapter number 1-^26. 

2. Page Hunber Alphanumeric code a-^z, corresponding to page nuidDer 1-) 26. 

3~^”5. Sequence Nuntoer Numeric code, 0'>-900 corresponding to the frame 

sequence number. The first frame of each course seg- 
ment begins with the number 1, and they are numbered 
consecutively from that point. 

6. Extra This position is normally blank. If frames must be inserted at a 
later date, this position allows for keeping the same label scheme, 
and using an alphanumeric code in this position to distinguish 
between frames. 



Ihe -Analysis Prograns 



■niere were five analysis programs developed by ISCS for processing the 
data that was recorded, sorted, and merged by the CAI Center’s Data Management 
System (DVIS) operating under the ISS Monitor. In addition, the center provided 
item analysis sunmaries and listings of student ccmments. The latter two 
analysis were performed by the center, using the sort and analysis capability 
of the DMS. Any inquiries relative to the H'-K-ISS monitor system or operations 
should be directed to Fir. George Hogshead, CAI Center, Florida State University, 
Tallahassee, Florida 32306. 

Detailed Listings and Documentation 
Program logic description, operator instructions, flow diagrams, and 
detailed program listings with comments are presented for each of the five ISCS 



analysis programs. 
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PR0GRM5 ISCSA 
PRCGRAM LCGIC DKSCRIPIION 

Ihe purpose of the program is to provide a detailed, but edited, listing of 
student responses. Ihe printed records consist of the student number, EPID, 
response identifier, date of response, latency, and the contents of buffer 
zero. 

The program runs on a work tape, in regular nistory file sequence, containing 
only the student population wanted. Ihe tape may be mounted on either drive. 

1. The program reads a student record, using subroutine FAKE, into the 13^' 
character array IREC^'. If it is a new student , the program goes to 2 be3,ow. 

If it is not a new student, the program goes to 3 below. 

2. The program stores tlie student number, skips to a new page on the printer, 
and writes the page header. 

3. The program prints the student nunber, EPID, response identifier, latency, 
date of response, and buffer zero, then returns to 1 above. 

; 

After eacli read statement, an end of file check is made. 

^Ihe layout for array IREC is given in the Appendix 
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FIGURE 9 

PROGRAM ISCSA FLOW DIAGRAM 
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Detailed Listing-ISCSA 









C 

c 

c 

c 



ISAO0G5O 

ISA00060 

1SA00070 

rsAoooao 

1 SA00090 
ISAOOiOO 



c 

c 

c 

c 

c 



THIS PROGRAM WAS WRITTEN 8Y 
DAVID H DASENBROCK 
NOVEMBER t 1968 

ISAOOIIO 

t^Hf^^}$ii^t$nf********* « 4( * 4( ISAD0i2O 

ISA00130 

THE PURPOSE OF THIS PROGRAM IS TO PROVIDE AN EDITED DETAIIEO LISTING AOOIAO 
IWHICH IS MORE COMPACT THAN THAT PROVIDED BY THE CENTER. THE OUTPUT LISTS 150 
THE STUDENT NUMBERt DATEt LATENCY* BUFFER 0* EPID* AND RESPONSE IDENTIFIER 60 
THE PRIMARY USE OF THIS PROGRAM IS FOR REFERENCE. THE PROGRAM RUNS OFF OF 70 






I 



i 



TAPE OF THE STUDENTS IN HISTORY FILE SEQUENCE 



rc 









3004 



13001 



3002 
C 
19 
C 



C 

20 

C 



C 

10 

11 



111 
IC 



12 

13 



COMMON IREC(134)t JDATE(4) 

IREC » 134 CHARACTER ARRAY FOR THE TAPE RECORD 
DATA IA»IB*NUM/‘F S'C S*XX«/ 

TOTALeO.O 

N«2 

SET TAPE DRIVE SENSE SWITCH 
WRI;E( 2*3004) 

FORMAT! //*20X*» SET TAPE DRIVE SENSE SWITCH* #/t 
♦20X*« SS 4 ON * USE TAPE DRIVE 5**/* 

♦20X*» SS 4 OFF« USE TAPE DRIVE 6» *///////) 

PAUSE 

CALL SSWTCH(4*JD> 

GO TO (3001*3002)* JO 
I0RIV»5 
GO TO 19 
IDRIV*6 
READ THE HEADER 
CALL RHOR(IORIV) 

READ A STUDENT RECORD 

A STUDENT RECORD IS READ INTO THE IREC ARRAY USING SUBROUTINE FAKE. 

CALL FAKE(IDRIV*N) 

CHECK FOR END OF FILE 
IF(N-2)50*10*50 
CHECK FOR A NEW STUDENT 
IF(IREC(5)-NUM)ll*13*ll 
CONTINUE 

WRITE 1 2* 111) TOTAL 

FORMAT! //*5X*»T0TAL TIME IN CHAPTER SF6.1** . MINUTES*) 

TOTAL »0.0 

WRITE NEW PAGE HEADER 
WRITE(2*12) 

FORMAT! lHl*////*40Xf* STUDENT RESPONSE PROFILE**//) 

NUMsIREC!5) 

CALL DATE 

TIMEsIREC!22)/600.0 
TOTAL»TOTAL+TIME 
ADD TIME IN MINUTES 



ISA00180 

ISA00190 

ISA00200 

ISA00210 



ISA00220 

ISA00230 

ISA00240 

ISA00250 

ISA00260 

I3A00270 

ISA00280 

ISA00290 

ISA00300 

ISA00310 

ISA00320 

ISA00330 

*? 

ISA00350 

ISA00360 

ISAOJ380 



ISA00390 

ISA00400 

ISA00410 

I SA00420 

ISA00430 

ISA00440 

ISA0045C 

I SA00460 ^ 

ISA00470 

ISA00480 

ISA00490 

ISA00500 

ISA00510 

ISA00520 

ISA00530 

ISA00540 

ISA00550 



er|c 






J 





1 






T4 

15 
17 

16 



IFIIRECI21]-IA)14.16,14 

IF(IREC(2U>IB)1S,16,15 

MRtTE RECORD 

IREC( 5)t(IREC(J)fsl*10t21) • JDATE«T IHE 
ZAlf 2Xf 4A2,2XfF6.2 ) 

• UREc/l; IxiiSfloti ’ ’ ‘ -J’ « J=lO,21) , JDATE.TIME, 



60 TO 20 

[50 REWIND IDRIV 

STOP 

^ END 

|// XEQ ISCSA 
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PROGRAM ISCSA 



OPERATIWG INSTRUOTTOInIS 



The program is desigied to print an edited detailed listing, from a work 
tape in history file sequence, of the selected ISOS students. 



To run the program 

1. ' mount the work tape (either drive) 

2. put stock paper in printer 

3. load fortran deck 

4. set sense switch 4 to assign the proper tape drive, 
(drive selectioi instructions appear on printer) 



OUTPUT 

1. tape drive selection instruction 



2 . student listing 



PKCGRAi-i ISCSP 



PKCGRAi‘i LOGIC DiiSCRIPTIOi'J 



ILe purpose of this program is to provide a grai^iiic plot of each student’s 
progress through the instructional materials, with respect to time. 'Ihe 
ISCS-CAI macro system is sucii, that tne last two characters of the iiPID 
contain the frame sequence number, 'ihe frames are numbered consecutively, 
starting v/ith 1 at the beginning of eacii course segmen'*' . The program uses 
this sequence number for reference v;hen plotting the data points . 

Ihe program runs on a ivork tape, in regular nistory file sequence, containing 
only the student population vjanted. Tiie tape may be inounted on either 
tape drive. 

1. Ihe program reads a student record, using subroutine PAx\L, into the 
13 ^ character array li^C. If it is a new student, the program goes to 
2 below. If it is not a new student, the program gces to 3 below. 

2. Tlie program stores the student number, SKips to a new page on the 
printer, and v/rites the page header, which includes the student number, 
and X axis of the grapii. 

3 . Tne program examines irtbCdG) and IliL,C(19), whicii are the last two 
characters of the LPID. Tiie numerical value of these two positions are 

found, K=(10 X IRKC(l8) + liM(li^), and a x placed as the data point in 
Line (K) . 

Tie latency from the record is added to the total latency. If the 
total latency is less than 5 minutes, the program returns to 1. 

5 . If the total latency is greater than 5, b is subtracted from the 
total latency, array LlhE is printed, then set equal to blanks, except 
the last data point. Tne program returns to 1 above. 



After each read statement, an end of file check is made. 
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Detailed idsting-ISCSP 



C 

C 

|c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 



OIHENSION NUM(l0)tLINE(102^ 
COMMON !REC(134)»J0ATE(4) 



THIS PROGRAM WAS WRITTEN BY 
DAVID H DASENBROCK 
JANUARY* 1969 



ISP00050 

ISP00060 

ISPOOOtO 

ISP00080 

ISP00090 

ISPOOlOO 

ispoolio 

ISP00120 

ISP00130 



, ^ ISP00140 

THE PURPOSE OF THIS PROGRAM IS TO PLOT STUDENT PROGRESS THROUGH THE ISCS 50 
INSTRUCTIONAL MATERIALS WITH RESPECT TO TIME. THE PROGRAM RUNS OFF OF A WORK 
TAPE, WITH THE STUDENTS IN HISTORY F^LE ORDER. THE PROGRAM PLOTS TIME IN 170 
FIVE MINUTE INTERVALS AS THE Y AXIS, AND THE FRAME SEQUENCE NUMBER AS THE X 0 
AXIS. THE FRAM SEQUENCE NUMBER IS DERIVED FROM THE LAST TWO CHARACTERS 00190 



C 



C 



• ,»5 • ,*6 



OF 

I 



PLOT 

»'7 •, 



•8 •,•9 •/ 



• ,*.• ,*40»,2/ 



OF THE EPID. 

NUMe ALPHANUMERIC ARRAY CONTAINING 0-9M FOR DETERMINING FRAME NUMBER 
LINE « AP 

LINE « ALPHANUMERIC ARRAY FOR PRINTING LINE 
, DATA NUM/*0 •,*! *»*3 

DATA I X , lY , I BLNK, I DOT, I D, N/» X» , • • 

DETERMINE TAPE DRIVE 

SS2 ON, JQsl, QUESTIONS ONLY/ SS3 ON, JP^l, PUNCH CARDS 
WRITE(2,3004) 

3004 FORMAT! //,20X,« SET TAPE DRIVE SENSE SWITCH*, /» 

♦20X,* SS 4 ON = USE TAPE DRIVE 5*,/, 

♦20X,« SS 4 OFF« USE TAPE DRIVE 6*,///////) 

PAUSE 

CALL SSWTCH(4,JD) 

GO TO (300 1,3002), JO 

3001 I0RIV*5 
60 TO 3003 

3002 I0RIV*6 
PEAO HEADER 

3003 GALL RHOR(IORIV) 

C READ RECORD 
10 ; CALL FAKE(I0RIV,N) 

C dHECK FOR END OF FILE 

< 1F(N-2)5,11,5 

CHECK FOR NEW STUDENT 

STORE NEW STUDENT NUMBER , TERMINATE PLOT, GO TO NEW PAGE, AND START 
THE NEXT PLOT. 

IF NOT A NEW STUDENT, GO TO WHERE POSITION OF DATA POINT IS DETERMINED 
AND A CHECK IS MADE FOR 5 MINUTE INTERVAL. 

IF(ID-IREC(5))12,40,12 
ID«IREC(5) 

: MA:=J»5 

WRITE(2,102)MA,LINE 

100 WRITE(2,101) 

C WRITE PAGE HEADER 

101 FORMAT! IHI) 

WRITE!2,120)IREC!l)f 1REC!2),IREC(3) 

^Er|c format !50X,3A2) 



:^c 

c 

c 

c 

c 

11 

12 



ISP00200 

ISP00210 

ISP00220 

1SP00230 

ISP00240 

ISP00250 

ISP00260 

ISP00270 

ISP00280 

ISP00290 

ISP00300 

ISP003I0 

ISP00320 

ISP00330 

ISP00340 

ISP00350 

ISP00360 

ISP00370 

ISP00380 

ISP00390 

ISP004{j0 

ISP00410 

l 

ISP0043C 

ISP00440 



ISP004$0 
ISP00460 
ISP004t0 
ISP004^0 
1 SP00490 
ISP00500 
ISPOOStO 
ISPOOS^O 
ISP 00530 






110 



106 



^107 



C SET 
tl08 



105 



MR!TE(2f llOURECC4)tlREC(5) t IRECUO) 

FORM AT (35Xt» STUDENT NUMaER • t 2A2t lOXt 'CHAPTER «fA2f/J 
WRITE(2f 106) 

FORMATS 2Xf «T IME • 1 45Xt • FRAME* ) 

WRITE(2,107) 

FORMATdXt ‘MINUTES*) 

WRITE(2fl08) 

WR!TE(2tl05) 

UP THE LEGEND FOR THE PLOT* 

FORMAT! 19X,* 11 1111 11 11 222222222233333333334444444444555555555566661 SP00620 
♦666666777777777788888888889999999999* ) ISP00630 

FORMAT! K)Xf* 12345678901 23456789012345678901234567890123456789012341 SP00640 



ISP00540 

ISP00550 

ISP00560 

ISP00570 

ISP00580 

ISP00590 

ISP00600 

ISP00610 



13 



102 

60 



14 









15 



20 






♦567890123456789012345678901234567890123456789*) 

L*0 

SET AXIS 

DO 13 I»ltl02 
LINE!I)«I00T 
CONTINUE 
J*0 

WRITE!2fl02) JtLlNE 
FORMAT ! 2X f 1 5t 2Xf 102A1 ) 

DO 14 lB2fl01 
LINE! I)«IBLNK 
CONTINUE 
DO 15 I=:lt9 
M=I*10+1 
LINE!M)=IY 
CONTINUE 
JSJ4-1 

K=(J/10)^10 
IF! J-K)40,20f40 
DO 21 I«2fl01tl0 
M0P=I+4 
LINE!MOP)«IY 
MP0=I+8 
LINE!MP0)»IY 
LINE!I)*IY 
CONTINUE 

DETERMINE COORDINATES OF DATA POINT 
' 90 45 I*lflO 

IF! IREC! 18)-NUM! I ) )43t42»43 
IA-I-1 

IF!IREC(19)-NUM!I)) 45t44f45 
IB»I-1 
CONTINUE 
IF!IAr0)47f46,47 
IF! IB-0)47fl0#47 
ICsIA«10+IBd 
C TOTAL TIME IS L* 

; LINE!IC)slX 
L=L+IREC!22) 

IF!L-3000)10f50f50 
C WRITE LINE 

^ 0_E DATA POINT IS PLOTTED AS A LETTER**.L INES ARE PLOTTED AS DOTS WITH 

cHJC 



21 

C 

40 



,42 

43 

44 

45 



46 

47 



ISP00650 

ISP00660 

ISP00670 

ISP00680 

ISP00690 

ISP00700 

ISP00710 

ISP00720 

ISP00730 

ISP00740 

ISP00750 

ISP00760 

ISP00770 

ISP00780 

ISP00790 

ISP00800 

ISP00810 

ISP00820 

ISP00830 

1SP00340 

ISP0085D 

ISP00860 

ISP00870 

ISP00880 

ISP0G890 

ISP00900 

ISPOOOlO 

ISP00920 

ISP00930 

I SPG0940 

ISP00950 

ISP00960 

ISP 009 70 

ISP00980 

ISP009901 

ISPOIOOO 



ISPOlOlO; 

ISP01020; 

ISP01030^ 

ISP01040I 






;c DASHES FOR FIVE MINUTE INTERVALS. 
iSO MA«J*S 

HRITE(2tl02)HA.LINE 
L«L-3000-IRECI22) 
f GO TO 60 

C UNLOAD THE BLOODY TAPE. THE PROGRAM HAS RUN OUT OF THE STUPID STUFF 
5 REWIND IDRIV 

: STOP 

; END 

\t! XEQ ISCSP 

R 

c 

r 

i 

! 

I 
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ISP01050 ^ 
ISP01060 1 
ISP01070 ^ 
ISP01080 ^ 
ISP01090 i 
ISPOllOO I 
ISPOlllO ^ 
ISP0II20 ^ 
ISP01130 1 
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PROGM-i ISCSP 



OPERATING IWSTRUCTIOi\fS 



Tliis program is designed to read a v/ork tape^, conprlsed of ISCS students 
in history file sequence ^ and provide a plot of student progress ^ with 
respect to 5 mj.nute time intervals. 

To run the program 

1. mount v/ork tape (either drive) 

2. put stock paper in printer 

3. load fortran deck 

set sense switch 4 to assign proper tape drive, 
(drive selection instructions appear on printer) 



ou™r 



1. tape drive selection instructions 

2. plot of students path througii the instructional materials, with respect 
to time. 



PROGRAI^I ISCST 



PROGRAT'i LOGIC DiiSCRIFTIOW 



The purpose of this program is to provide a grapnic trace of eacn student’s 
progress tlirough the instructional sequence. Tiie ISCS-CAI macro system 
is such that the last two characters of the i^PID contain tne frame sequence 
nuirber. Hie ft?aires are numbered consecutively ^ starting v-jitn 1 at the 
beginning of each course segnent. Hue program uses the sequence number 
for reference when plotting the data points. 

The program runs on a work tape^, in regular nistory file sequence,, con- 
taining only the student population wanted. Tne tape may be mounted on 
either tape drive. 

1. The program, reads a student re cord ^ using subroutine PAi\L^ into the 
134 character array IRbC. If tne end of file is encountered^ the program 
checks for a new student number. If it is a new student^ the program 
goes to 2 below. If it is not a new student^ the program executes 3 below. 

2. The program stores the student number, goes to a new page on the printer, 
and writes the page header, whicii includes the student number and the 

a.xis of the graph. 

3. Tne program examines IRi:.C(l 8 ) and liiLC(li^), wiiich are the last two 
characters of the iiPID. Tne numerical value of tiiese two positions are 
found, K=(10 X IRLC (I 8 ) + IRtiC (19 ) 5 and the first character of the 
response bP is stored as a data point in LIhL(K). 

Tlie array Ui^JE is written, and the data point is then removed from 
the array. Tiie program repeats 1 above. 
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X \ ves V 

STUIKNT ^ 



STORE 

STUDENT 

NUHBER 



no 




\ WRITE 
PAGE 
HEADER 





figure 11 

program iscst flow diagram 



o 

ERIC 



50 



Detailed Listirig-ISCST 






DIMENSION NUHUOIvLlNEaoa^ 



IST00060 



i 



c 

c 

c 

c 

c 

c 

c 



IST00070 



THIS PROGRAM WAS WRITTEN BY 

DAVID H. OASENBROCK 
ISCS 

OCTOBER 1968 



IST00080 

IST00090 

ISTOOlOO 

ISTOOlio 

1ST00120 

IST00130 



C 
C 
C 



ISTOOIAO 



00150 



C 

r 



C 

C 

C 

C 

C 

C 



THE PURPOSE OF THIS PROGRAM IS TO TRACE A STUDENTS PATH THROUGH THE 
INSTRUCTIONAL MATERIALS* THE X AXIJr SERVES AS THE FRAME NUMBER# THE Y AS 160 
THE RESPONSE NUMBER. THE FIRST CHARACTER OF THE RESPONSE EP IS RECORED ON 70 
THE PLOT. ^ A PLOT IS DRAWN FOR EACH STUDENT. THE PROGRAM IS RUN ON A WORK 80 
TAPE IN REGULAR HISTORY FILE SEQUENCEt SORTED BY STUDENT. IST00190 

ANY EPID WITH 01 SEQUENCE NUMBERS APPEARING AS IN IT SERVES AS A 
RESTART POINT. THIS INCLUDES EXCURSIONS! CHAPTER BEGINNINGS! OR ANY 

SEQUENCE WITH AN EPID OF THE FORM 01. 

LINE = ALPHANUMERIC ARRAY FOR LINE ON THE PRINTER! IN WHICH TO STORE 00 
GRAPHIC CHARACTERS. IST00210 

NUM = ALPHANUMERIC ARRAY CONTAINING THE NUMBERS 0-9! FOR DETERMINING 20 



«!*3 



•4 



S‘5 



*6 » 



»!«8 



•9 »/ 



• !».«!«40* 



2 / 



300 






C 

C 



3001 



3002 

C 

19 

C 

C FAKE 



THE X AXIS POSTION 
COMMON IREC(134)! JDATE(4) 

DATA NUM/»0 S* 1 S*2 
DATA IBLNK!lDOT! IDtN/* 

SET THE TAPE DRIVE NUMBER ’ 

WRITE(2!3004) 

FORMAT ( //!20X!* SET TAPE DRIVE SENSE SWITCH* !/t 
♦20X!* SS 4 GN = USE TAPE DRIVE 5* ! /r 
<=20X,» SS 4 OFF= USE TAPE DRIVE 6*!///////) 

PAUSE 

JD IS USED AS A SWITCH TO SET THE DRIVE NUMBER 
JD IS SET BY SENSE SWITCH FOUR 
CALL SSWTCH(4!JD) 

GO TO (300U3002)! JO 

IDRIV=5 

GO TO 19 

IDRIV=6 

READ THE HEADER 
CALL RHDR(IDRIV) 

READ THE TAPE RECORD 

IS THE FORTRAN SUBROUTINE ON THE CAI SYSTEM THAT READS EACH 



IST00230 

iST00240 

IST00250 

IST00260 

IST00270 

IST00280 

IST00290 

IST00300 

IST00310 

IST00320 

IST00330 

IST00340 

IST00350 

IST00360 

IST00370 

IST00380 

IST00390 

IST00400 

IST00410 

IST00420 



C STUDENT RECORD INTO A 134 CHARACTER ARRAY CALLED FAKE. 

tN) 



1 



10 
C 



C 

11 

c 

12 

C 

100 

101 



120 



CALL FAKEUDRIV, 

CHECK FOR THE END OF FILE 
IF(N-2)5!ll!5 
CHECK FOR A NEW STUDENT 
IF{ID-IREC(5))12!40,12 
SET STUDENT NUMBER 
I0=IREC(5) 

WRITE PAGE HEADER 
WRITE(2!l01 ) 

FORMAT(lHl) 

WRITC(2,l20)IRECm!lREC<2)!lREC(3) 

F0R..A1 ’0X!3A2) 



1ST00430 

IST00440I 

IST00450 

IST00460 

IST00470 

IST004ho; 

IST00490; 

IST00500 

ISTOOSlOi 

IST00520j 

1ST005301 

IST00540^ 



bmc 






hlMfilifftlfflkiJ 



51 



no 



U^!TlE(2«110)IRECC4)fIREC(5) tlREC(lO) 



106 



107 

C 



IOC 



5 






42 

43 

44 

45 



A6 

47 



C 



3 



t^0K»AT{3$Xt« STUDENT NUMBER •• 2A2t 10X» 'CHAPTER 'tA2«/) 
WRITE! 2f 106) 

FORMAT! 2Xt* RESPONSE' »40Xt' FRAME') 

WRITE! 2» 107) 

FORMAT!lXt'NUMBER') 

WRITE THE GRAPHIC AXIS 
WRITE!2tl08) 

!^'RITE!2f 105) 



IST00550 

IST00560 

1ST00570 

IST0C:20 

IST005-?'' 

IST.00600 

IST00610 

IST00620 

IST00630 



FORMAT! 19X,' 1111 111 11122222222223333333333444444444455555S55556666IST00640 
Ci666677777777778888B888889999999999« ) ' IST00650 
FORMAT! lOX,' 123456789012345678 90123456 78 9012345S789012345678901234IST00660 



♦567890123456789012345678901234567890123456789') 
FILL ARRAY LINE WITH DATA POINTS 



A. 

s 


00 13 I = lfl02 


\ 


LINE(n*IDOT 


sl3 


CONTINUE 


f 


J=0 


1 

h 

IV- 


WRITE<2tl02) JtLINE 


1102 


E0RMAT(2X«I592Xtl02Al) 


|60 


DO 14 1*2# 101 


i 


UNE(I)rIBLNK 


114 


CONTINUE 


c 


CHECK FOR THE FRAME N 


UO 


DO 45 I=l,10 



IFMREC! 18)-HUM! I ) )43i42«43 

;a=i-i 

IF!IREC!19)>NUNII)) 45,44,45 
CONTINUE 

IF!IA-0)47t46,47 
5F!I8-0)47tl0t47 
iC=lAtlO+IB*-l 
J= J<-1 

LINEnC)3lREC!20) 

WRITE THE ALPHANUMERIC ARRAY, LINE 
URITE!2,102) J,LINE 
LINE! lO^IBLNK 
GO TO 10 

END OF PROGRAM. ♦ UNLOAD ♦ 

CALL UNLO!IORIV) 

STOP 

END 

U XEQ ISCST 



o 

ERIC 

I 



IST00670 

IST00680 

IST00690 

IST00700 

IST00710 

IST00720 

IST00730 

IST00740 

IST00750 

IST00760 

IST00770 

IST00730 

IST00790 

IST0Q300 

IST00810 

IST00S20 

IST00830 

IST00840 

IST00850 

IST00860 

IST00870 

1ST00880 

IST00890 

IST00900 

IST00910 

IST00920 

IST00o»^ 

IST00940 
I ST00950 
IST00960 
IST00970 
IST00980 



52 



PRCGRA.M ISCST 



OPJtiRATM liviSTRUCTICI'jg 



'Elis program is desired tp read a V/ork tape^ conprised of ISCS students 
in history file spquepcp/^d provide a trace of the students progress 
tiirough the instructiphaX materials 



To run the progranj ' • 

<* 1 ** 

■' 1. 'iw^t tup wo^ tape (either -drive) 

2 ;. p|i|;';atQck p%^er in p^ 

3 . Ip^ jijie* fort|’^'' deck ‘ 

4 . set sense sy/it'cii to assign the proper tape tdrive 
(drive selection instructions appear on printer) 



OUTPUT 

1. tape drive selection instructions 

2. trace of student path tiirougn the instructional materials. 



PROGRAi'-l ISCSb 



PROGRAT4 LOGIC DLSCRIFIIOW 



This program was developed to fulfil specific data analysis needs of the 
iEntermediate Science Curriculum Study . Hie ISCS—CAI program is ccsrpletely 
macro based. As a result , tne same response identifiers are used tiirough— 
out the course to indicate answers to free response questions . Ihe pur- 
pose of this program is to select free respcaise questions from a work 
tape contaimng only the student population wanted, and sorted by an 
item analysis sequence . Hie program prints the student responses by 
question. 

1. Hie program reads the tape header. 

2. Hie program reads one student record, using subroutine FAJl:!. Hie 
student record is stoi’^d in the 134 character array IRbC. The program 
searches fur a D in IRLIC(20) or an P in IRi!JC(21). Hiese two characters, 
p and P, ai€ unique in those two positions for free response questions 
in the macro system. 

3. If a D or P is not encountered, the program repeates 2 above. 

4. If a D or P is encountered, the program goes to a nevj page on the 
printer, and writes the page; header containing the bPID. 

5. Hie LPID is stored. 

6. Hie student nunber, response identifier, and the contents of buffer 
zero are printed. 

7 . The program reads the next student record. This LPID is compared 
x^/ith the stored bPID. 

8. If it is the same, tlie program returns to 6 above. 

9. If it is not the same, the program returns to 3 above. 



After each read statement, an end of file check is made. 
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Detailed Idsting-ISCSB 

05?iSNSi0M 10aC)t!ALP<26)tIACPT<2) 

ISB00080 

t THIS PROGRAM WAS WRITTEN BY ISB0C090 

DAVID H* OASENBROCK ISBOO.lOO 

ISCS ISBOOUO 

NOVEMBER 1968 ISB00120 

ISB00130 
IS500140 

' isr.00130 






s 



c 

c 






i 



PURPOSE OF THIS PROGRAM IS TO SELECT FROH A WORK TAPE, SORTED INSB00160 



ITEM AMAKLVSIS SEOUENCE, THOSE QUESTIONS WHICH HAVE A FREE RESPONSE ANS'!EF'..70 i 



C 

tc 



THE FREE RESPONSE EP IDENTIFIERS 
FOR AN F AS THE SECOND CHARACTER 



THE FIRST CHARACTER OF THE IDENTIFIER, AS THESE ARE UNIQUE IN THE 



!C BEING 

ic 



ARE DC, CF, WF, AND THE PROGRAM SEAPXHES 
IN THE EP RESPONSE IDENTIFIER, OR A D IN 



190 



C 



C 



Ic 



USED BY ISCS. 

IREC « 134 CHARACTER ARRAY FOR THE TAPE RECORD 
STUDENT RECORD IS READ INTO THE IREC ARRAY USING SUBROUTINE FAKE. 
ID = ARRAY FOR STCRING AND CHECKING THE 10 CHARACTER EPIO 
I ALP = ARRAY IN WHICH IS STORED THE 26 LETTERS OF THE 
SETTING CHAPTERS IN THE PRINTOUT 

lACPT = ARRAY CONTAINING F AND D FOR SELECTION OF 



MACRO C0200 
1SB00210 
I $300220 
221 



1 



ISB00230 



THE 






!RC'C( 134),JDATE(4) 
" DECLARATIONS 



ALPHABET, I S3GC240 
ISB00250 
QUESTIGNSISBO‘1260 
ISB00270 



data 






z 



IALP/ 0 A *,*B »,»C 



'^en 



a 



» 9 • M 



»t»N 



»0 



DATA 



•/ 

• . 



G 



,*Y »,«Z 

IACPT/»F 
DATA !R/«R »/ 

INITIATE THE CORRECT 



•0 



•,«P 



,«E 

**Q 



«,*F *,»G 



»R 



• ,ic. 



•H 



•I i.tj t 



^ ■ t 



«T »,*U »,*V ® 



155002^0 

ri3C'C30C' 



ISBOOSiO 



*0 '»/ 



ISBOO-320 

ISGC0S30 



c 



INITIATE 

‘-'RIVE, 
TO SET JO 






TAPE DROVE. 
THE CORRECT TAPE DROVE. 
AND SET IDRIVE, THE TAPE 



JD IS 
JD IS 
DRIVE 



USED 

USED 



A 

AS 



ISD003*.D 



NUMBER 



A SWitCH TO 
SENSE SWITCH 



SEL1SSC.;350 
4 n&e^360 
1S30G370 



>::inES2,3004^ 

FORMAT! //, 20 X,« SET TAPE DRIVE SENSE SWITCH®,/, 



J^/20)U» SS 4 ON s USE TAPE DRIVE 5*,/, 



soo a 



* > > 



^2CX,» SS 4 OFF= USE TAPE DRIVE 6 », ///////) 

PAUSE 

CALL SSWTCH(4,JD) 

GO VO (3001, 3002 ),JD 
IDRIV=5 
GO TO 199 
IDRIV-6 

READ THE HEADER 
CAM RHDRUORIV) 

WRITE(2,25) 

N =2 

READ A TAPE RECORD 
GALL FAKE(IDRIV,N) 

CHECK FOR END OF FILE OR TAPE ERROR 
y.F{h!-2)23, 10,23 

CHECK FOR CORRECT RESPONSE IDENTIFIER 
IF! IREC(2U-IACPT( in 19,20,19 
IFnREC(20)-IACPT(2) 122,20,22 55 



ISB003Q0 

IS30&390 

ISBCC-40e 

ISB004IO 

ISB0C42O 

ISB00430^ 

ISD00440 



ISBD0450^ 

ISJ00460I 



ISB00470! 



ISB00400 



e 

c 



10 



% J*V 



ISBOC-490^ 

TSBOOSOO^ 

IS300310 

I $600520^ 

ISB00530 

ISB00540I 

ISBCO 55 O 5 

ISBC0D60| 



ERIC 



f 






1 r 



n FT 



c 

20 



£fORE NEW EPID 
n I»lfl0 



11 



C 

12 

13 
C 

14 

15 
C 



C 

30 

16 



00 

lD(n«IREC(l49) 

CONTINUE 
DO 15 Isl,22 

IFnRECnO)-IALPm)13»12f 13 
CHECK FOR CHAPTER 
IC«I 

IFnREC(llJ-IALP(I))15»14tl5 
CHECK FOR PAGE 
IP«I 

CONTINUE 

CHECK FOR REVIEW 
IFnRECC20)-IR)30,22f30 
WRITE THE PAGE HEADER 
WRIT£(2fl6nC,IPtIREC(16)f IRECdT), ID 

FORMAT ( lHl,//t lOX, ^CHAPTERS I3» /, lOX, *PAGE M3t /f2Xf •CfUESTiON* 
*2X, 2A 1 1 18X ♦ » I DENT I F S ER • ♦ A 35Xt lOAl ) 

DO 18 I^ltlO 

CHECK FOR NEW EPID 
IFdOn )-IREC(I+9))10,l8tl0 
CONTINUE 

WRITE THE RECORD, AS AT THIS POINT IT IS ACCEPTABl.E 
WRITE(2,2l)IREC(4),IREC(5), IREC( 20) , I REC C 21 ) , ( IREC ( K) »K«84, 104) 
FORMAT< 10X,2A2,2X,2A1,2X,21A2) 

READ A NEW RECORD 
CALL FAKE(5,N) 

IF(N-2523, 17,23 
WRITE(2,25) 

FORMAT (IHl) 

END OF TAPE, -UNLOAD- 
REWIND IDRIV 
STOP 
END 

// XEQ ISCSB 



17 

C 



18 

C 



21 

C 

22 



ISB00590 
ISB00600 
ISB00610 
ISB00620 
ISB00630 
ISB00640 
ISB00650 
ISB00660 
ISB00670 
ISB00680 
ISB00690 
ISB007001 
ISBC0710 
IS800720 
ISB00730 
ISB00740I 
tISB00750 
IS6b0760 
ISB00770 
ISB00780 
IS800790 
ISB00800 
ISB008101 
ISE.00820 
ISB00830 



I $600840^ 



23 

25 

C 

1502 



ISB00E50 
ISB00860 
ISB00870 
ISB00880 
ISB008901 
ISB00900 
lSB00910i 
ISB00920) 
ISB00930i 



o 
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PRCORAT'! ISCSB 



OPiiRATIi^^G INSa^RUGriONS 



Tills program is designed to read an item analysis sorted work tape;, comprised 
of ISCS students 3 and write student responses to free response questions. 



To run the program. 

1. mount the work tape (either drive) 

2. put 1 ply stock paper in printer 

3. load the fortran deck 

set sense switch ^ to assign proper tape drive 
(drive selection instructions will be printed) 



OUTPUT 

1. Tape drive selection instructions. 

2. Student number;, response buffer zero, of free response questions. 



Program ISCSi-i or ISCS9 

Note: Program ISCS9 is a modification of the series of prograirs labeled ISCSM, 
ISCS7, and ISCS8. The original (1967-68) version of these programs was labeled 
ISCS.) 



Progi’am Logic Description 

It has been found that for revision purposes and other uses of the data 
from the CAI trial, a matrix is the most useful format in which to obtain data. 
Program ISCSM was. developed to provide matrices of student response- identifiers, 
latency times, riumbers of reviews, and dates of response. Tlie program prints 
each of the four types of data in a matrix ordered by student number and frame 
identifier (EPID). 

1. The piogram reads the tape header. 

2 . One student record is read, using subroutine FAKE, and a check for end 
of file is made. 

3. A check is made to determine whether a new EPID has been encountered. 

a. If a new EPID is encountered, the response for the frame is stored 
as the last response for that student and the latency is zeroed. 

b. If a new EPID is not encountered, a check is made for a new 
student number. If a new student number is not encountered, latency is 
added and a new record is read as in 2 above . 

c . If a new student number is encountered, the response is stored and 
the latency is zeroed. 

A. A check is made to determine whether data for 8 frames have been 
.stored. 

a. If date for 8 frames are stored, a response matrix is written and 
a check is made relative to the need to print or skip the latency, 
data and review matrices. The latter three matrices are skipped if 
data for questions only are Included in the records. (This would 
normally occur if a sort for questions only had been made prior to the 
anali^sis. ) 

b. A check is made for whether or not punched card output is desired, 
and if so, data in binary form are punched on cards. 

c. Tile EPID counter is reset to zero. 

5. If data for less than 8 frames are stored, a check is made for whether 
the response is a review. If it is a review a new response record is 
read as in 2. If it is not a review, the response is stored as the 
first response for the student, the student number is stored, and then 
a new record is read. 
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PROGRAM ISCS9 PLOW DIAGRAM 

6n 



uuuuoouooo o u uouuouuuuuuuou 



Detailed Iistlng-ISCS.9 

1001 INmgR EPI0(80.)tANSt31t8«4) 

1002 DIMENSION NUHI 3U«ICM 2)tNLR(3) t lOUl 3) t I9IN(62t8) tL ATI31»8)t 
*I0ATt(3i»8»4)tIEPI0a0)«ICK(31,8)tRAT(31,8) tAVE(8> , 
«IREV(31t8)tIREVTiS)tNXm6)tXm6) 

1003 COMMON !REC(134)«.iOATE(4) 

DATA NStNLtNCtNY/31,3,2,0/ 



THIS PROGRAM HAS WRITTEN BY 
DAVID DASENBROCK 
ISCS 

NOVEMBER. 1968 

AND MODIFIED BY GEORGE HOGSHEAD 
CAI CENTER 
OCTOBER f 1969 






THIS PROGRAM IS DESIGNED TO PRESENT FOUR MATRICES OF DATA AS OUTPUT. 

THE WORK TAPE FROM WHICH RECORDS ARE READ ARE SORTED IN ITEM ANALYSIS 
SEOUENCE. EACH STUDENT RECORD IS READ AND THE AUTHENTICITY OF THE 
STUDENT NUMBER IS CHECKED. TOTAL LATENCY AND AVERAGE LATENCY ARE 
CALCULATED FOR EACH FRAME FOR EACH STUDENT AND STORED IN THE LATENCY 
MATRIX. ERROR RATES ARE CALCULATED FOR EACH FRAME AND STORED IN THE 
MATRIX WITH RESPONSE IDENTIFI ERS;» . FOUR MATRICES ARE PRINTED OUT... 
RESPONSE t LATENCY, NUMBER OF REVIEWS, AND DATE OF RESPONSE ... .ALL IN 
SEPARATE MATRICES FOR WHICH THE FRAME EPID APPEARS ALONG THE HORI- 
ZONTAL AXIS AND STUDENT NUMBER APPEARS ALONG THE VERTICAL AXIS. 

NSsNUMBcR OF STUDENTS NA=BLANKS, NL= NUMBER OP REGAL RESPONSES, NC= NUMBER 
OF CORRECT ANSWERS, NY= END OF TAPE CHECK 

IBIN IS AN ARRAY OF BINARY NUMBERS FOR PUNCHING 1 AND 0 ON CARDS. 

DATA NUM/'OO* ,*01S 'OZ*, 'OBS'D^* , 'OS* ,» 06* , 'O?* , ‘08 • , •09* , • 10« , 

♦ •11S‘12S‘13«, •14*,n5*,«16«,*17‘,‘18* ,‘ 19«, ‘20S*21»,‘22S«23S 

♦ •24*, •25‘,‘26*,«27‘,6 28»,‘29« o *30* / 

C NLR=OT,UN,RV 

DATA NLR/‘U » , «R S'O •/ 

C ICA“CA,CF,EX 

DATA ICA,NA/«C ‘,‘E •/ 



DATA IOU/*X Y ‘,*C • / 

C THREE BLANK CAROS ARE READ TO CLEAR THE PROGRAM FROM THE PUNCH AREA. 
1005 RBA0n,200lRX 
REA0(1,2001)IX 
REA0a,200i)IX 

C NOTC> TO OPERATOR TO SET SENSE SWITCHES. 

WRITE(2,2002) 

WRITEI2,2003) 

WRITE(2,2002) 

1007 PAUSE 

CALL SSWTCHC2,J0) 

CALL SSWTCH<3,JP) 

C OET^r<KINE SENSE SWITCH SETTING FOR THE TAPE DRIVE IN USE. INSTRUCTIONS 
j^f^ARE PRINTED ON THE PRINTER, 
yi WrUTE(2,3004) 
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3004 FORMAT! //t20Xf* SET TAPE DRIVE SENSE SWITCH't/f 



?! 



*20Xf* 



SS 

ss 



4 

4 



ON 

OFF 



3001 



3002 

3003 
2301 
C 



10 



*20Xt» 

PAUSE 

COMPUTER SETS DRIVE TO BE USED, 
CALL SSWTCHUfJD) 

GO TO ( 3001 « 3002 )f JO 
I0RIV*5 
GO TO 3003 
I0RIV«6 

WRITE(2«2301) JOt JP 
F0RMAT(10X»2I4,///) 

READ TAPE HEADER, 

CALL RHDR(IDRIV) 

GO TO (lCtl5),JP 

WRITE STATEMENT TO TELL OPERATOR 



USE TAPE DRIVE 5*t/t 
USE TAPE DRIVE 6* ♦///////) 



THAT THE PROGRAM WILL PUNCH CARDS, 



C GO 
15 



WRITE(2«2004) 

PAUSE 

TO TOP OF PAGE, 

WRITB(2,2005) 

LPCK=0 

LArO 

M1*0 

Ns2 

C ZERO MATRICES, 

19 DO 20 J«l«8 
DO 20 1*1, NS 
IREVT(J)*0 
AVE( J)«0 
IREVn,J)aO 
LATn,J) = 0 
iCKn,j)=o 
DO 21 KA*1,4 
C BLANK MATRICES, 

ANS(I,J,KA)*NA 
IDATE(I,J,KA)aNA 
CONTINUE 
CONTINUE 
D0173 1=1,16 
NXUI)=0 
173 CONTINUE 

C SET BINARY MATRIX NUMBERS EQUAL TO 2, IF NO RESPONSEt 
C IF THERE IS A RESPONSEi 1 OR 0 WILL BE PUNCHED. 

DO 110 J=l,8 
DO no 1 = 1,62 
IBINU, J) = 2 
CONTINUE 
IPA6E=1 

CALL FAKEnORIV,N) 



21 

20 



2 WILL REMAINf 



no 



24 

CK 



EOF 



CK 

25 

CK 



IF(N-2)1000,25,1000 
NEW EPIO 

IF(M1-10)26,27,26 
FOR OU 






26 

SO 



52 

51 

29 



GO TO CSOtSlI » JO 
00 52 l«lf2 

IFnRECa5J-I0Un))52t51f52 

CONTINUE 

GO TO 24 

00 29 1=1,10 

IEPI0(I)«IRECn+9) 

CONTINUE 
Ml* 10 



NB=IREC(5) 

60 TO 28 

27 00 28 1=1,10 
IF(IEPI0m-IREC(I-*-9))30,28,30 

28 CONTINUE 
CK NEW STO 

C 1REC*5 CONTAINS THE LAST TWO OIGITS OF A STUOENT NUMBER# NB CONTAINS 
C A STORED STUOENT NUMBER. IF THEY ARE EQUAL# THE PROGRAM CONTINUES#. 

C IF THEY ARE MOT EQUAL, LATENCY IS RESET TO 0, AND THEN IT CONTINUES# 
IF(NB-IREC(5) )101,31,101 

101 LPCK=0 
LA =0 

!CK(NAHE,IPAGE)=IO 

C LATENCY IS DIVIDED BY 60 TO GET IT INTO MINUTES. XTHE COUNTER OVER- 
C FLOWS IF LATENCY IS STORED IN SECONDS. IT MAY OVERFLOW IN MINUTES# 

C ON OCCASION, AND THE RESULT IS A NEGATIVE LATENCY. 

31 LA=LA+IREC(22)/60 

IF(LPCK-IO) 103,152, 103 
152 ANS(NAME,IPA6E,3)=IREC(20) . 

ANS(NAME,IPAGE,4)=IREC(21) 

102 LAT(NAME,IPA6E)=LA 

C THIS CHANGES LATENCY FROM AN INTEGER TO A REAL NUMBER. 

RAT ( NAME , I PAGE ) =LA*. 1 
IF(NLR(2)-IREC(20))132,131,132 

131 IREV(NAME,IPAGE)=IREV(NAME,IPAGE)+1 

132 00 106 1=1, NC 
IFnREC(20)-ICAU ))106,10*7,106 

107 IBININAMB,IPAGE)=1 
GO TO. 24 

106 continue 

IBIN(NAMB,IPAGE)=0 
GO TO 24 

103 NB=IREC(5) 

00 33 I»1#NS 
NAME=I 

NAMB=NAME+31 



IF ( NUM( n-IREC( 5) >33,35,33 
33 CONTINUE 

C WRITES A STUOENT NUMBER WHICH DOES NOT MATCH A CORRECT ONE# 



35 

36 
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LA=0 

WRITE! 2,2006 )IREC(4),IREC( 5) 

GO TO 24 

IFnCK(NAME,IPAGE)-10)36,24,36 
DO 32 1=1, NL 

IF(IREC(20)-NLR(I) >32, 102,32 



4 






32 CONTINUE 

ANSCNAHEtIPAGEf l)sIREC(20) 

ANSINAMEf IPAGEf2)»IREC(21) 

00 46 !:sIfNC 

I F n REC ( 20 ) -I CAH ) ) 46f 37, 46 
37 IBIN(NAMEf IPAGE)-1 

C FILL BINARY ARRAY. 

GO TO 38 
46 CONTINUE 

IBIN(NAME,IPAGE)=0 
32 CALL DATE 

c oetek?:ine date of response.* 

DO 39 1=1,4 

IDATE(NAME,IPAGEfI)=JDATE(l) 

39 CONTINUE 

LPCK=10 
GO TO 102 

C FILL EPID IDENTIFIER ARRAY. 

30 DO 41 1=1,10 

IB=(IPAGE*10)-10+I 
EPID( IB) = IEPID(n 
IEPID(I)=IREC(I+9) 

41 CONTINUE 

T0T=0.0 

C TOTAL LATENCY ON THE FRAME. 

DO 127 1=1,31 
T0T=T0T>RAT(I,IPAGE) 

127 CONTINUE 

C DETERMINE THE AVERAGE LATENCY^ 

AVE( IPAGE)=T0T/31.0 

LPCK=0 

LA=0 

M1=0 

K0Uf4T=IPAGE 
IPAGE=IPAGE+1 
IF (I PAGE-8 126,26,100 
1000 NY=10 

C PRINT RESPONSE MATRIX. 

100 WRITE(2,2050) IREC( n,!REC( 2 ), IREC( 3 ) 

WRITE(2,2200) 

WRITE(2,2051)EPID 
DO 55 1=1, NS 

WRITE(2,2060)NUMn ),nANSn,J,K),Kal,4)fJ«l,K0UNT) 

55 CONTINUE 

DO 171 1=1, NS 
DO 171 J=1,K0UNT 
C DETERMINE ERROR RATE. 

L=J^2 

K=L-1 

M=I+31 

NX1(K)*NX1IK)+1BIN(I,J) 

NX1(L)»NXUL)+IBIN{M,J) 

Xl(K) = (3l.0-NXl{K) ) /31.0 
XUU= ( 31. O-NXKL) 1/31.0 



64 



IF(Xl(K)-.00U172tl72il79 
172 X1(K)«0.0 

179 IF(Xla)>.001imtl74«l71 

174 X1(L)=0.0 

171 CONTINUE 

WRITE(2t2038)Xl 

2038 F0RHAT(//,3X,< ERROR RAtESZXf 8(lX«F4.2tlX»F4.2*2Xn 

60 TO (86t87)tJ0 

C CHECK TO SEE IF OTHER- MATRIX IS WANTED. 

87 WRITE! 2(2050) IREC( l)tIREC( 2) fIRECI 3) 

C PRINT LATENCY MATRIX. 

URITE(2(2201) 

WRITE(2,2051)EPID 
00 60 I = 1(NS 

HRITE(2,2061)NUM(I)((RATn( J)( J«1(K0UNT) 

60 CONTINUE 

WRITE(2,2020)AVE 

2020 FORMAT! /,2X, *AVE LAT* ,8Xt 8! F6.2t 6X) ) 

C PRINT REVIEW MATRIX. 

00 143 I-1(NS 

DO 143 J=1,K.0UNT 

IREVT! J)=1REVT! J)+IREV!I(J) 

143 CONTINUE 

WRITE! 2(2050) IREC!1),IRECI 2) tIREC! 3) 

WRITE!2(2033) 

2033 FORMAT !40X(* NUMBER OF REVIEWS') 

WRITE!2(2051)EPI0 
00 141 I=1(NS 

WRITE!2(2030)NUM!I)(!IREV!1(J.<(J>1(K0UNT) 

141 CONTINUE 

WRITE!2(2031) !IREVT!I)(I=1,K0UNT) 

2030 F0RHAT!6X('V0'(A2(7X(8!2X(I4(6X) ) ‘ 

2031 FORMAT! //(6X( 'TOTAL' (6X( 8!2Xd4(6X) ) 

C PRINT DATE MATRIX. 

WRITE !2( 2050) IREC!1)(IREC!2)(IREC! 3) 

WRITE!2(2202) 

WRITE!2(2051)EPI0 
DO 70 1=1. NS 

WRITE!2.2062)NUMII)(!II0ATE!I( J(K)(K=l(4)fJ«ltK0UNT) 

70 CONT INUE 

86 CONTINUE 

81 WRITE(2(2005) 

GO TO !80(85)(JP 
80 00 85 I=1(K0UNT 

C PUNCH CARDS. 

IH=I*10 

NG=NS*2 

IW=lH-9 

WRITE! 1,2100) I EPIOIL)(L=IWdH)(!IBINIK (I ),K=ltNG)tlRECI3) 
GO TO !85(89)(J0 

89 WRITE ! 1. 2101) !EPIO! L)(L=IW(IH),!LAT!K, I ),K=1,NS)(IREC<3) 

85 CONTINUE 

DO 88 1=1(80 
EPtO!l)=NA 
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CCMTIMOe 

tPtli*7i6)l9tl500»19 
(iEdtNO lORlV 
P|)r>;at(A2) 

FORHtifl///f30X,‘SET SENSE SWITCHES, SEE REQUEST SHEEy^^^ 

FPRHAT(////,lOX,‘THIS PROGRAM WILL PUNCH CAROS',//////////! 

FORMAT! IHl) . ^ 

FORMAT( /» lOXf ‘STUDENT NUMBER ‘»2A2»‘ MISMATCH*) 

FORMAT! lHlt///»50X»3A2) 

F0RMAT(4X»‘ STUDENTS* f4X»8( 10Alf2X) ) 

F0RMAT(6Xt ‘VO* »A2»6X»8( 2X»2Alf 2X»2Alf4X) ) 

F0RMAT(6X»* VO* » A2»7X»8(F6.1f 6X) ) 

FORMAT (6X» *VO* t A2f 7X»8(4A2»4X ) ) 

FORMAT! 10A1»40I It 20X»A2) 

FORMAT! 10Al«20I3»A2) 

FORMAT! //,45Xf ‘MATCH IDENTIFIER* ) 

FORMAT! ///»45X» ‘LATENCY IN MINUTES*) 

FORMAT! ///»45X^* DATE OF RESPONSE*) 

STOP 

END 

// XEQ ISCSO 



tm 

?O.0,;1 

2002 

2003 

2004 
200 $ 
2006 
2.050 
2051 
2060 
2061 
2062 
2100 
2101 
2200 
2201 
2202 



:2 

jt 



'5 

I 






o 

ERIC 






66 






PRCGRAT^ ISCS 9^ 



OPliRATIi'IG IlvfSTRUCTIONS 



The program is designed to print student response identifies latency, response 
date, and nunher of review in student by question matrices. The program 

will £rlso punch the first and last pass responses in binary form. The work tape 

must be in item analysis sequences. 

1. mount work tape (either drive) 

2. put 1 ply stock paper in printer 

3. load the fortran deck and ^ blanl^ car’ds 

4. set sense switch ^ to assign proper tape drive 
(drive selection instruction will be printed) 

5. set sense switch 2 (on = questions only, off = all frames) 

6. set sense switch 3 (on = punched output, off = no punched output) 

7. load blank cards if punched output is desired 



%ote: Program ISCS9 is a modification of the program ISCS? and ISCS8. The 
original version of these three programs was labeled program ISCS. 
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LAYOUT FOR ARRAY IRKC 



0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 
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Student Number 


^ 


1 


Type 


Date 


Time 


of Day 


\ 


EPID 






































Response I.D. (unpacked) 





Latency 



Switches 



32 words 



Counters 



30 words 



Student response 50 words 
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